home *** CD-ROM | disk | FTP | other *** search
/ Pink Daily - The Pink Days / Pink Daily - The Pink Days.iso / pc / pinkdata / rdb3.dir / 00038_Script_38 < prev    next >
Text File  |  1995-08-19  |  448b  |  21 lines
  1. on exitFrame
  2.   repeat with n = 8 to 10
  3.     puppetSprite n,true
  4.   end repeat
  5.   repeat with n = 12 to 16
  6.     puppetSprite n,true
  7.   end repeat
  8.   
  9.   if the ink of sprite 10 = 0 then
  10.     repeat with n=1 to 20
  11.       if the puppet of Sprite n then puppetSprite n,false
  12.     end repeat
  13.     --sound playFile 2, "SEgood.AIF"
  14.     sound stop 1
  15.     puppetTransition 06,0,4 
  16.     go the frame +1
  17.   else
  18.     gameBGM
  19.     go the frame
  20.   end if
  21. end